hledani v packed record

Otázka od: Pavel Hauptman

17. 6. 2004 6:40

Ahoj,

potreboval bych najit hodnotu v packed record dle kriterii. Nazev polozky v
packed record predem neznam. Muze se stat, ze hledana polozka vubec
neexistuje. Vubec netusim jak to. Mozna jdu na to spatne, prosim poradte
jak?

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type THfo = packed record
       field1: string;
       field2: string;
       field3: string;
       field4: string;
       field5: string;
     end;

var Hfo: array of THfo;
    i: integer;
    hledat: string;

begin
  SetLength(hfo, 2);
  hfo[0].field1 := 'POLE1';
  hfo[0].field2 := 'POLE2';
  hfo[0].field3 := 'POLE3';
  hfo[0].field4 := 'POLE4';
  hfo[0].field5 := 'POLE5';

  hfo[1].field1 := 'POLE6';
  hfo[1].field2 := 'POLE7';
  hfo[1].field3 := 'POLE8';
  hfo[1].field4 := 'POLE9';
  hfo[1].field5 := 'POLE0';

  hledat := 'field3';

  for i := 0 to high(hfo) do begin
>>> tady chci vypsat vsechny hfo[i].hledat, ale nevim, jak to napsat <<<
  end;

  readln;
end.

Diky a s pozdravem
Pavel Hauptman